home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vmed.arc / VMPF.CCC < prev    next >
Encoding:
Text File  |  1985-12-03  |  1.5 KB  |  63 lines
  1. /*    VMPF/CCC
  2.  *    virtual memory utility functions
  3.  *
  4.  *    Copyright 1983, 1984 by Jim Kyle - All Rights Reserved
  5.  *    Licensed for individual non-commercial use only.
  6.  *
  7.  *         created:    November 16, 1983 - Jim Kyle
  8.  *    last changed:    February 12, 1984 - Jim Kyle per
  9.  *                    Dick Yavich suggestion
  10.  */
  11.  
  12. /*
  13.  *    smudge() makes the current slot dirty so that it
  14.  *    will be written out on a swap. It should be called
  15.  *    after every modification of the slot's contents.
  16.  *    Otherwise, the modification may not be saved if the
  17.  *    slot is swapped to some other block.
  18.  */
  19. smudge()            /* make current slot dirty */
  20. {    *Bcptr |= DIRTY;    }
  21.  
  22. /*
  23.  *    cur_size() returns the byte count of the current
  24.  *    block, stripping out the "dirty bit"
  25.  */
  26. cur_size()            /* return current byte count */
  27. {    return(*Bcptr & CLEAN);    }
  28.  
  29. /*
  30.  *    getwd() returns an int value from a char pointer;
  31.  *    it substitutes for a cast.
  32.  */
  33. getwd(p)    int *p;
  34. {    return(*p);    }
  35.  
  36. /*
  37.  *    putwd() stores an int value at *p/*++p; it takes
  38.  *    the place of a cast.
  39.  */
  40. putwd(n,p)    int n, *p;
  41. {    *p = n;    }
  42.  
  43. char * eob()    /* return char ptr to freespace */
  44. {    return(Dbptr - BHAD + cur_size());    }
  45.  
  46. char * clad()    /* char ptr to current line */
  47. {    return(Dbptr + Dbndx);    }
  48.  
  49. set_ndx(p)    char *p;    /* int index to *p */
  50. {    return(p - Dbptr);    }
  51.  
  52. char * llad()    /* char ptr to last line in block */
  53. {    int i;
  54.     char *j;
  55.     j = Dbptr;
  56.     i = *Lcptr;
  57.     while (--i)
  58.         j += getwd(j);
  59.     return(j);
  60. }
  61.  
  62. 
  63.